home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018c.dsk / AD.CABLE AD.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  28 lines
  1. 1  REM  PRINTER CABLE AD
  2. 5  TEXT : HOME 
  3. 10  PRINT : PRINT "TIRED OF NOT BEING ABLE TO ARRANGE YOUR"
  4. 20  PRINT : PRINT "DESK BECAUSE YOUR EPSON PRINTER CABLE"
  5. 30  PRINT : PRINT "IS TOO SHORT?"
  6. 40  PRINT : PRINT "WITH A PARRALLEL INTERFACE YOU CAN GO"
  7. 50  PRINT : PRINT "UP TO 10 FEET IN LENGTH FROM YOUR APPLE."
  8. 60  PRINT : PRINT "WE SUPPLY A 5 FOOT OR AN 8 FOOT CABLE"
  9. 70  PRINT : PRINT "THAT IS INTERCHANGABLE WITH THE ORIGINAL"
  10. 80  PRINT : PRINT "SHORT CABLE."
  11. 82  VTAB 22: PRINT "(EPSON-TRADEMARK OF EPSON AMERICA, INC.)": VTAB 23: PRINT "(APPLE-TRADEMARK PF APPLE COMPUTER, INC)"
  12. 90  VTAB 24: HTAB 13: INVERSE : PRINT "PRESS ANY KEY";: NORMAL : GET A$: HOME 
  13. 110  PRINT "DON'T LET YOUR PRINTER RULE YOUR DESK."
  14. 120  PRINT : PRINT "REPLACE THAT SHORT CABLE WITH A MORE"
  15. 130  PRINT : PRINT "CONVENIENT LENGTH."
  16. 140 A$ = "5 FOOT CABLE    $39.95":B$ = "8 FOOT CABLE    $44.50"
  17. 160 C$ = "SHIPPING INCLUDED":D$ = "CHECK, MONEY ORDER OR C.O.D.":E$ = "IOWA RESIDENTS ADD 4% SALES TAX"
  18. 190  VTAB 7: PRINT  SPC( (40 - LEN(A$))/2);A$
  19. 200  VTAB 9: PRINT  SPC( (40 - LEN(A$))/2);B$
  20. 210  VTAB 11: PRINT  SPC( (40 - LEN(C$))/2);C$
  21. 220  VTAB 13: PRINT  SPC( (40 - LEN(D$))/2);D$
  22. 230  VTAB 15: PRINT  SPC( (40 - LEN(E$))/2);E$
  23. 240 F$ = "M & M COMPUTING":G$ = "ROUTE 1":H$ = "CRESCO, IOWA  52136"
  24. 250  VTAB 18: PRINT  SPC( (40 - LEN(F$))/2);F$
  25. 260  VTAB 20: PRINT  SPC( (40 - LEN(G$))/2);G$
  26. 270  VTAB 22: PRINT  SPC( (40 - LEN(H$))/2);H$
  27. 280  VTAB 24: HTAB 7: INVERSE : PRINT "PRESS ANY KEY FOR AD.MENU";: NORMAL : GET A$
  28. 290  PRINT  CHR$(13) + CHR$(4);"RUN AD.MENU"